1 IFX>.THEN10
2 POKE53280,.:POKE53281,.
3 PRINT"[147]"
4 PRINT"    [215]ELCOME TO [200]ARNED'S [193]RT [200]OTEL..."
5 :
8 POKE55,120:POKE56,55:CLR
10 IFX=0THENX=1:LOAD"UNPACKER",8,1
20 IFX=1THENX=2:LOAD"BLOAD.O",8,1
25 IFX=2THENX=3:LOAD"COPYMEM.O",8,1
30 :
40 BL=828:UNPACK=51456:HGR=51459
45 CM=14200
50 :
55 NP=12:DIM T$(NP),A$(NP),R$(NP),C(NP)
56 FORX=1TONP:READT$(X),A$(X),R$(X),C(X)
58 IFA$(X)="*"THENA$(X)=A$(X-1)
59 NEXT
60 GOSUB 50060: REM TITLE SCREEN
70 FORX=1TONP:GOSUB60000
80 PRINT"[154]"
82 PRINTSPC(19-LEN(T$(X))/2)""T$(X)"[146]"
84 PRINT""SPC(19-LEN(A$(X))/2)""A$(X)"[146]"
90 SYSBL,16384,R$(X)
92 :
94 IFPEEK(198)<>0THENGETA$:POKE198,0:IFA$="Q"ORA$="[209]"THENGOSUB10000
95 IFRIGHT$(R$(X),3)="PIC"THEN1000
96 POKE249,224:POKE250,204
98 POKE251,0:POKE252,64
99 POKE253,0:POKE254,0:PRINT"[147]";:SYSUNPACK:SYSHGR:POKE53280,C(X)
100 AG=3.34
110 POKE198,.:WAIT198,1
112 GETA$:IFA$=" "ORA$=" "THENPOKE53280,(PEEK(53280)AND15)+1
115 IFA$<>CHR$(13)THEN110
120 SYSHGR:PRINT"[147]":POKE198,0:NEXT X
130 GOTO70
140 :
1000 AG=3.34:POKE249,224:POKE250,204
1010 POKE251,.:POKE252,64
1020 POKE253,.:POKE254,.:PRINT"[147]"
1030 SYS CM,24576-8192,57344,8000
1040 SYS CM,32576-8192,52224,1000
1050 SYS CM,33576-8192,55296,1000
1055 POKE53281,PEEK(34576-8192)
1060 SYS HGR:POKE53280,C(X):GOTO100
10000 REM A KEY WAS PRESSED
10005 POKE53281,1:POKE53280,5
10010 PRINT"[147][144]  [193]RE YOU SURE YOU WANT TO QUIT [[217]/[206]]?"
10020 POKE198,0:WAIT198,1:GETAG$
10030 IFAG$="Y"ORAG$="[217]"THEN30000
10040 RETURN
30000 REM QUIT
30010 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
30020 IFER<>63THENPRINT"[147]":END
30030 LOAD"HELLO CONNECT",8
50000 REM DATA <TITLE>,<AUTHOR>,<REAL>
50010 DATA "[212]HE [203]EEP","[215]ALT [200]ARNED",KEEP.SHP,10
50012 DATA "[208]LANTER",*,PLANTER.SHP,13
50014 DATA "[195]REEK",*,CREEK.SHP,7
50016 DATA "[211]PACE [207]RE",*,SPACEORE.SHP,2
50020 DATA "[193]IRCAV",*,AIRCAV.SHP,10
50022 DATA "[200]OUND",*,HOUND.SHP,7
50026 DATA "[211]EA",*,SEA.SHP,3
50030 DATA "[196]OCK",*,DOCK.PIC,6
50034 DATA "[208]ANDAS",*,PANDAS.SHP,13
50040 DATA "[195]LASSIC",*,CLASSIC.SHP,6
50050 DATA "[193]RTIST",*,ARTIST.SHP,10
50055 DATA "[211]NOW",*,SNOW.SHP,14
50060 REM TITLE SCREEN
50065 PRINT"[147]":POKE53281,1:POKE53280,1
50072 PRINT"         [176]`````````````````[174]"
50082 PRINT"         [221][204]OADSTAR [208]RESENTS[221][152] "
50092 PRINT"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
50102 PRINT"                             "
50112 PRINT
50122 PRINT"  [159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
50132 PRINT"  [221]      [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][159]        [221][152] "
50142 PRINT"  [159][221]      [221][200]ARNED'S [193]RT [200]OTEL[221][154] [159]       [221][152] "
50152 PRINT"  [159][221]      [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154] [159]       [221][152] "
50162 PRINT"  [159][221]        [154]                   [159]       [221][152] "
50172 PRINT"  [159][221]                                  [221][152][160]"
50182 PRINT"  [159][221]   [211]LIDE [211]HOW [208]RESENTER WRITTEN   [221][152][160]"
50192 PRINT"  [159][221]         BY [193]LAN [199]ARDNER          [221][152][160]"
50202 PRINT"  [159][221]            ([195]) 1987              [221][152][160]"
50204 PRINT"  [159][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152][160]"
50212 PRINT"                                       "
50222 PRINT
50232 PRINT"     [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
50242 PRINT"     [221]  [193]LL PICTURES CREATED BY   [221][152] "
50252 PRINT"     [221]        [215]ALT [200]ARNED         [221][152] "
50272 PRINT"     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
50282 PRINT"                                    "
50292 :
50302 PRINT"   [ pRESS ANY KEY TO START THE SHOW[160]]";
50312 PRINT"";
50314 POKE198,0:WAIT198,1:POKE198,0
50316 POKE53281,5:RETURN
59990 :
60000 :
60001 POKE53281,1:POKE53280,5
60005 PRINT"[147][146]    [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
60010 PRINT"    [221][204]OADSTAR IS PROUD TO PRESENT:[221][152] "
60020 PRINT"    [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
60030 PRINT"                                    "
60040 PRINT
60050 PRINT"  [150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
60060 PRINT"  [221]                                 [221][152] "
60070 PRINT"  [150][221]  [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150]   [221][152] "
60080 PRINT"  [150][221]  [154][221]                          [221] [150]  [221][152] "
60090 PRINT"  [150][221]  [154][221]        CREATED BY        [221] [150]  [221][152] [146][160]"
60100 PRINT"  [150][221]  [154][221]                          [221] [150]  [221][152] [146] [160]";
60110 PRINT"  [150][221]  [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150]  [221][152] "
60120 PRINT"  [150][221]                               [150]  [221][152] "
60130 PRINT"  [150][221]                                 [221][152] "
60140 PRINT"  [150][221]                                 [221][152] "
60150 PRINT"  [150][221]  [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150]   [221][152] [146][160]"
60160 PRINT"  [150][221]  [154][221] [195]OMING SOON TO A COMPUTER[221] [150]  [221][152] [146][160]"
60170 PRINT"  [150][221]  [154][221]        NEAR YOU.         [221] [150]  [221][152] [146][160]"
60180 PRINT"  [150][221]  [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150]  [221][152] [146][160]"
60190 PRINT"  [150][221]                               [150]  [221][152] [146][160]"
60200 PRINT"  [150][221]                                 [221][152] "
60210 PRINT"  [150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
60220 PRINT"                                      "
60230 PRINT
60240 PRINT"         [ pRESS 'q' TO EXIT ]";
60250 PRINT"";
60260 RETURN